$file = $ARGV[0];
chomp($file);
open(BUFF,$file);
open(WRBUFF,">./plots/$file");
while($line = <BUFF>)
{
	if($line=~ /NaN/)
	{
		#print WRBUFF $line;
	}
	else
	{
		print WRBUFF $line;
	}
}
